perm filename FUNY[1,JRA] blob
sn#031519 filedate 1973-03-20 generic text, type T, neo UTF8
00100 (DE MATCH(X Y)(EQ X Y))
00200 (DE EXTERM(X Y)
00300 (PROG (Z Z1 Z2)
00400 (COND((NULL X)Y))
00500 C(COND((NULL Y)(RETURN Z2)))
00600 (SETQ Z X)
00700 D(SETQ Z1(CAR Y))
00800 B(COND((MATCH(CAAR Z)(CAR Z1))(GO A)))
00900 (SETQ Z1(CDR Z1))
01000 (COND(Z1(GO B)))
01100 (SETQ Z(CDR Z))
01200 (COND(Z(GO D)))
01300 (SETQ Z2(APPEND Z2(LIST (CAR Y))))
01350 A(SETQ Y(CDR Y))
01400 (GO C) ))
01500 (SETQ X @((A)(B)(C)))
01600 (SETQ Y @((A 1 2)(D)(C E)))